18 





} uly 1996 Delphi Informant 


INFORMANT SPOTLIGHT 


Delphi 2 / Object Pascal 





By Michael Maloof 


An Eye on GDI 


A Delphi 2 Object for Monitoring the Wily GDI Beast 


t’s no secret: most programmers know that Windows 95 is not a true 32- 


bit operating system. Everyone seems to appreciate that some compro- 


mises were necessary to ensure compatibility with existing 16-bit applica- 


tions. What may surprise you is that one of those 16-bit compromises can 


seriously affect the stability of your Delphi 2 applications. 


Tracking your application's GDI (Graphics 
Display Interface) usage, and the available GDI 
resources, are common tasks for Windows 3.1 
and Delphi 16-bit development. It’s all too easy 
to build spectacular forms with layers of panels, 
tabs, and grids. Running out of memory is just 
as easy. Often the GDI is exhausted, with 
symptoms ranging from partially displayed 
screens to a completely frozen machine. 


Woebegone Days 

With Windows 95, Delphi 2, and the multi- 
gigabyte, flat-address-space world of 32-bit 
programming, those GDI woes are gone for- 
ever, right? Not quite. Windows 95 has done 
much to improve the limitations of 
Windows 3.1 programming, but the GDI 


remains true to its 16-bit heritage. 


The bad news is the GDI is still a 16-bit 
resource and remains limited to 64K. 
However, the good news is that Windows 95 
uses less GDI memory than Windows 3.1 by 
shifting items such as TrueType font support 
to other areas of the system. 


Is a 64K GDI region still a serious issue? It can 
be if left unmonitored. The point is that you 
need to know your program's impact on the 
GDI, and you should keep an eye on the sys- 
tem-wide GDI usage. This is easily done using 
one of the commercial utilities on the market. 
For example, Norton Utilities for Windows 95 
contains a sophisticated resource monitor that 


can be set to warn you of impending doom. 
There are even shareware and freeware moni- 
tors available (one is included in the 


Accessories folder with Windows 95). 


Delphi: An Ideal Custom Solution 

While these external monitors can do the job, 
the ideal solution is to create a Delphi-based 
GDI resource monitor that can be linked to 
your application. The Delphi approach allows 
you to track your GDI usage with much finer 
granularity. During development, you can 
observe the GDI impact of specific control 
creation events by simply calling your GDI 
monitor before and after the event. 


A Delphi-based GDI monitor could even be 
used to protect your application from other 
GDl-eating applications. Simply check the 
available GDI memory at critical points in 
your application, and warn the user to close a 
few applications or windows before continuing. 


Building a GDI resource monitor in Delphi 
should be simple. In fact, a few 16-bit ver- 
sions of Delphi-based resource monitors 
already exist. The problem is that the one 
function used to measure the GDI, namely 
GetFreeSystemResources, is no longer avail- 
able. (At least, it’s no longer part of the pub- 
lished Win32 API.) 


From the Microsoft point of view, 
GetFreeSystemResources is no longer support- 
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ed. Its replacement, GlobalMemoryStatus, is a useful function 
that returns a wealth of information, but absolutely nothing 
about GDI usage. This is unfortunate considering the impor- 
tance of this resource. 


Get Me Some Free Resources 

Of course, the GetFreeSystem Resources function isn't really 
gone. It still exists as part of the Windows 95 support for 16- 
bit applications. You'll find the function in the file 
USER.EXE. The question is, how do you call this 16-bit 
function from your 32-bit Delphi application? 


There are three ways this could be accomplished. The 
Microsoft approved method for calling a 16-bit routine from a 
32-bit Windows 95 application is to use a flat thunk. The 
process is actually uglier than its name, and involves the use of 
a thunk compiler and separate 16- and 32-bit DLLs to per- 
form this 16-to-32-bit magic. In spite of being the approved 
method, this only works under Windows 95, meaning that 
your code must compensate for running under Windows NT. 


The undocumented method — which happens to be the 
one Microsoft uses — involves the use of the 
LoadLibrary16, FreeLibrary16, and GetProcAddress16 func- 
tions found in the KERNEL32.EXE. Matt Pietrik discov- 
ered these undocumented functions, and described their use 
in his “PC Tech” column in the September 26, 1995 issue 
of PC Magazine. Considering Microsoft's reliance on these 
functions, they’re probably safe to use, but like the flat 
thunk, they'll work only on Windows 95. 


The easy method — which happens to be the one I use — 
takes advantage of the fact that Delphi 2 includes the original 
Delphi 16-bit program. You can use the 16-bit version to build 
a very small, non-visual program that does nothing but call 
GetFreeSystemResources and return the GDI utilization. This 16- 
bit application is called from inside your 32-bit Delphi applica- 


tion, and the return value can be processed any way you see fit. 


This technique works equally well under Windows 95 and 
Windows NT. (It should be noted that Windows NT, as a 
true 32-bit operating system, does not have a GDI usage 
problem. The fact that this technique works under NT sim- 
ply means that your code can safely call the GDI monitor 
without worrying about the current platform.) 


Credit for the easy method must be given to Lou Grinzo, 
who presents the technique in his book Zen of Windows 95 
Programming [The Coriolis Group, Inc., 1996]. 


Getting Started 

The first step is to create the 16-bit application that will call 

GetFreeSystemResources and return the current GDI utiliza- 

tion. Let’s step through the process: 

m Launch the 16-bit version of Delphi and start a new pro- 
ject. Then use the Project Manager to remove the Unit1 
file from the default Project1. The resulting project source 
code is shown here: 
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program Project1; 


uses 
Forms; 


{$R *.RES} 


begin 
Application.Run; 
end. 


m This leaves a project with only one unit: Project1. Edit 
Projectl and remove the Forms unit from the uses clause. 
By removing the Forms unit, you'll find that Delphi can 
produce a very small executable. 

m Add the WinTypes and WinProcs units to the uses clause. 
These units give us the access we need to the Windows 
16-bit API and the associated constants. 

m Finally, remove the Application.Run statement, and replace it 
with a Halt statement that calls the GetFreeSystemResources 
function and passes our request for the GDI utilization. The 
result is shown in Figure 1. The Halt statement tells an 
application to terminate, but it can also pass back an exit 
code to the application that launched it. In this case, our 
exit code is the amount of free GDI resources. 


&B PROJECT1.DPR |. {OF Xx} 
program GetGdi; | 
uses 

WinTypes, WinProcs; 
{$R *.RES} 
begin 
{ The GetFreeSystemResources function is called 
using the GFSR_GDiResources constant. 
This program conld easily be modified to teke 
@ parameter, and return one of the other resource 
Values accessible with this function such as: 
GFSR_SYSTEMRESOURCES 
GFSR_USERRESOURCES 
} 
Halt ( GetFreesystemResources( GFSR_GDIResources } }; 
end. 
vr 
16: 12 Modified Insert «| | > | 


Project / 





Figure 1: This simple Delphi 1 project makes a call to the 
Windows 3.x API function, GetFreeSystemResources, and returns 
the result to the program that calls it. 


A Simple Example 

The next step is to integrate this executable into a 32-bit 
Delphi application. To illustrate the basic principle, we'll cre- 
ate a simple form that contains a Gauge and a Button. When 
the Button is pressed, the Gauge progress value will be set to 


the available GDI. 


Using a default project and form, place a Gauge component 
on the form. In our example, the Gauge’s Kind property was 
set to gkVerticalBar. Place a Button on the form, and change 
the Button’s Caption property to Display GDI (see Figure 2). 
Once the Gauge and Button have been placed on the form, 
double-click on the Button to create the framework for the 
ButtonClick procedure and enter the code shown in Figure 3. 
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I @ GDI Example ._ oy x! 
Button1: TButton 


P = s a 
roperties | Events | . Display GDI : 


Cancel False 

Caption Display GDI 

Cursor crDefault 

Default False 

DragCursor =~ crDrag 

DragMode = dmManual 

Enabled True 
+Font 

Height 

HelpContext 

Hint 

Left 

ModalResult — mrNone 

Name 

ParentFont = True 


ParentShowHi True 
PopupMenu 
ShowHint False 


‘GA Start | H Corel CAPTURE || fir Delphi 2.0 ¢] # o1-10 


procedure TFormi.ButtoniClick(Sender: TObject) ; 
var 

StartupInfo: TStartupInfo; 

ProcessInfo: TProcessInformation; 

GdiValue: DWORD; 

cp: Boolean; 
begin 

FillChar(StartupInfo, SizeOf(TStartupInfo), 0); 


// Get GDI resource utilization by calling 
// our GETGDI.EXE 16-bit Delphi application. 
cp := CreateProcess(nil, 'GETGDI.EXE', nil, nil, False, 
NORMAL_PRIORITY CLASS, nil, nil, 
StartupInfo, ProcessInfo) ; 
if cp then 
begin 
WaitForSingleObject(ProcessInfo.hProcess, 1000); 
GetExitCodeProcess(ProcessInfo.hProcess, GdiValue) ; 
CloseHandle(ProcessInfo.hProcess) ; 
Gauge1.Progress := GdiValue; 
end 
else 
Gauge1.Progress := 0; 


end; 


Figure 2 (Top): Building a simple GDI monitor with Delphi 2 
that calls the Delphi 1 application shown in Figure 1. 

Figure 3 (Bottom): The sample application’s ButtonClick 
procedure. 


You'll notice we're using a call to CreateProcess to launch our 16- 
bit application, GETGDIEXE. Windows 95 will go through 
the following specific search sequence to find this executable: 

m The directory from which the main application was 
loaded. 

The current directory. 

The Windows System directory. 

The Windows directory. 

The directories that are listed in the PATH environment 
variable. 


When you run this simple example and press the Button, 
the current GDI-free percentage is returned from our 
GETGDI executable. The Gauge reflects this percentage. 
Assuming that Delphi is still running, you may notice that 
your GD]I-free percentage is already in the 80s. Considering 
that you were probably in the high 90s when Windows 95 


started, youve already lost a fair amount of memory. 
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A GDI Monitoring Object 

Where did the GDI go? While prototyping a new Delphi 2 
application, I was rudely awakened by Norton’s System 
Doctor warning me that my GDI resources were dangerously 
low. This led to the discovery of the 16-bit nature of the 
Windows 95 GDI, but that was only the beginning. 


Knowing that the GDI is still a limited resource and know- 
ing how to preserve that resource are two distinct issues. 
Which form consumed the most GDI? Which components 
or controls could be eliminated? Which forms should be cre- 
ated during program initialization, and which ones should be 
created only on demand? How many forms can be opened 
before the application approaches critical mass? 


The search for these answers resulted in the creation of a 
TTimeMem object. Our lead Delphi programmer, Lynn Settle, 
constructed the 77imeMem object to measure the elapsed time 
and the memory consumed between two events. [7’TimeMem 
is available for download from Library 7 in the Delphi Forum 
on CompuServe. The file name is TIMEMEM.ZIP] It was 
during the creation of the 7TimeMem object that we discov- 
ered there was no apparent way to track the GDI. 


Using the technique presented in this article, we now have a 
TTimeMemGDI object that adds GDI tracking to the origi- 
nal object's capabilities. This object can be integrated into 
your application in many ways. 


To illustrate the use of the object, it’s included in the main 
project source file shown in Figure 4. By incorporating 
TTimeMemGDI in this fashion, we can now allow Delphi to 
create the sample form, and measure the form’s impact on 
the GDI, as well as other system resources (see Figure 5). 


The complete .PAS file for 7TimeMemGDI is shown in 
Listing One, starting on page 21. 


program Project2; 


uses 
Forms, 
TimeMemG, 
Unit2 in ‘Unit2.pas' {Form}; 


{$R *.RES} 


var 
TimeMem : TTimeMemGDI ; 

begin 
Application. Initialize; 
(7 Creace an instance Of the OD Jecr. 
TimeMem := TTimeMemGDI.Create; 
// Capture starting values. 
TimeMem.Start; 
// Create the sample form. 
Application.CreateForm(TForm1, Form) ; 
// Capture the ending values. 
TimeMem.Stop; 
// Show the impact of creating this form. 
TimeMem.DisplayInfo('Creating Sample Form'); 


Application. Run; 


end. 


Figure 4: Using the TTimeMemGDI object. 
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Project2 By creating an instance of 
the 77imeMemGDI object 
and calling the Start 


method, we have an accu- 


Creating Sample Form 
Elapsed time: 0 Minutes 1 Seconds 370 Milliseconds 
Total physical memory: 32,980,992 


Percent of memory in use: rate picture of the initial 
87% before : 
20% afte environment. The Stop 
% USE : . . 
method is called immedi- 


Free physical memory: 


1 6.384 before ately following the 
atter 
16,384 used CreateForm procedure, and 


Paging file free: 
238,567,424 before 
237,072,384 after 
1,495,040 used 


the DisplayInfo method 
gives a complete picture of 
what has changed between 


Available virtual address space: 
2,136,670,208 before 
2,115,960,832 after 
20,709,376 used 


the two events. 


Available GDI resources: 
75 before 
#4 after 
1 used 


You can use the 
TTimeMemGDI object 
by calling sequences of 
Start, event of interest, 
Stop, and Displaylnfo. 


You can also measure the 








Figure 5: An example of the GDI 
Monitor at run time. 


increasing impact of a 
series of events using a sequence such as, Start, event #1, Stop, 
DisplayInfo, event #2, Stop, DisplayInfo. By continually calling 
only the Stop and DisplayInfo methods, you'll see the cumula- 


tive effect of the events. 


Conclusion 

We concentrated our GDI resource reduction efforts on 
descendants of the 7WinControl. We eliminated virtually all 
of our 7Panel components using Eric Uber’s TGraphicPanel, 
which descends from TBevel, but has the same visual prop- 
erties as a 7Panel. We also substantially reduced the number 
of TDBNavigator components. Furthermore, we carefully 
monitor the GDI situation as we create forms on demand. 
[Eric’s TGraphicPanel is found in the file, GRAPHPNL.ZIP, 
located in Library 9 of the Delphi Forum on CompuServe.] 


By using this technique we reduced the GDI usage in our 
application from an unbelievable 90 percent to about 30 per- 
cent, or roughly about twice as much as Delphi itself. That’s 
not bad for a major vertical market application that relies 
heavily on Grid, Page, and Tab Controls. This reduction is 
especially significant because we'll soon be applying for 


Windows 95 Logo Certification. 


One element of the certifi- ‘% =| |x! 

: : Settings Options Help 
cation process is a general 
stability test. Figure 6 Resource Remaining 

oe Global 32208.00 KB 
shows the application User 57 % 

, ; , GDI 72 % 
being exercised while run- ja, Snack jen e406 
ning Microsoft’s Stress util- _ File Handles 111 
Wnd32 2785280.00 KB 
ity (available on the Menu32 0.00 KB 

GDI32 0.00 KB 


MSDN CDs). Among 
other things, the Stress 
utility randomly consumes 
between 40 and 60 percent 
of the GDI. An application that consumes more than 40 per- 


Figure 6: The Windows Stress 
utility at run time. 


cent of the GDI may not survive in that environment. Will 


21 ~=—J uly 1996 Delphi Informant 





your application? [For more information about the Windows 
3.x Stress utility, see Karl Thompson’ article “Gimme Some 
Stress!” beginning on page 38.] 


It’s unfortunate that the GDI beast still haunts Windows 95, 
but with a little effort you can prevent your Delphi applica- 
tions from becoming its next meal. A 


The demonstration files referenced in this article are available 
on the Delphi Informant Works CD located in 
INFORM \96\JUL\ DI9607MM. 


Michael Maloof is CEO of Smart Shop Software, Inc., a Coeur d’Alene, |D-based 
publisher of software for the manufacturing industry. Following Jetf Duntemann’s 
software publishing advice, Michael married his best friend, moved to a beautitul 


place, and brings his golden retriever to work every day. You can reach Michael 
through CompuServe at 76050,1607. 


Begin Listing One: TTimeMemGDI 


unit TimeMemG; 


interface 
uses SysUtils, Windows, Dialogs, Classes, Forms; 
type 

TTimeMemGDI = class(TObject) 

private 


StartTime: TDateTime; 

UsedTime: TDateTime; 

// Bytes of physical memory. 
TotalPhys: Integer; 

// Percent of memory in use. 
StartMemoryLoad: Integer; 
EndMemoryLoad: Integer; 

// Bytes physical memory available. 
StartAvailPhys: Integer; 
EndAvailPhys: Integer; 

// Bytes available in paging file. 
StartAvailPageFile: Integer; 
EndAvailPageFile: Integer; 

// Bytes available in the user mode portion of 
// the virtual address space. 
StartAvailVirtual: Integer; 
EndAvailVirtual: Integer; 

// Percent GDI resources available. 
StartAvailGDI: Integer; 
EndAvailGDI: Integer; 


public 
// Capture start time, memory stats, 
procedure Start; 
// Capture stop time, memory stats, and GDI free. 
procedure Stop; 
// Display information. 
procedure DisplayInfo(InfoTitle: String) ; 

end; 


and GDI free. 


implementation 


procedure TTimeMemGDI.Start; 

var 
SysMemoryStatus: TMemoryStatus; 
StartupInfo: TStartupInfo; 
ProcessInfo: TProcessInformation; 
GdiValue: DWORD; 
cp: Boolean; 
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begin 


FillChar(SysMemoryStatus, SizeOf(TMemoryStatus), 0); 
//SysMemoryStatus.dwLength := SizeOf(TMemoryStatus) ; 
GlobalMemoryStatus(SysMemoryStatus) ; 


{ Get starting memory info. } 


StartMemoryLoad := SysMemoryStatus.dwMemoryLoad; 
StartAvailPhys := SysMemoryStatus.dwAvailPhys; 
StartAvailPageFile := SysMemoryStatus.dwAvailPageFile; 
StartAvailVirtual := SysMemoryStatus.dwAvailVirtual; 
FillChar(StartupInfo, SizeOf(TStartupInfo), 0); 


// Get starting GDI resources percentage. 
cp := CreateProcess(nil, 'GETGDI.EXE', nil, nil, False, 
NORMAL_PRIORITY CLASS, nil, nil, 
StartupInfo, ProcessInfo) ; 
if cp then 
begin 
WaitForSingleObject(ProcessInfo.hProcess, 1000) ; 
GetExitCodeProcess(ProcessInfo.hProcess, GdiValue) ; 
CloseHandle(ProcessInfo.hProcess) ; 
StartAvailGDI := GdiValue; 
end 
else 
StartAvailGDI := -1; 


// Before I go, brother could you spare the time? 
StartTime := NOW; 


end; 


procedure TTimeMemGDI.Stop; 
var 


StartupInfo: TStartupInfo; 
ProcessInfo: TProcessInformation; 
GdiValue: DWORD; 

cp: Boolean; 


SysMemoryStatus: TMemoryStatus; 


begin 


// How long has it been? 
UsedTime := NOW - StartTime; 


SysMemoryStatus.dwLength := SizeOf (SysMemoryStatus) ; 
GlobalMemoryStatus(SysMemoryStatus) ; 


// Get ending memory info. 


TotalPhys := SysMemoryStatus.dwTotalPhys; 
EndMemoryLoad := SysMemoryStatus.dwMemoryLoad; 
EndAvailPhys := SysMemoryStatus.dwAvailPhys; 
EndAvailPageFile := SysMemoryStatus.dwAvailPageFile; 
EndAvailVirtual := SysMemoryStatus.dwAvailVirtual; 
FillChar(StartupInfo, SizeOf(TStartupInfo), 0); 


// Get ending GDI resources percentage. 


cp := CreateProcess(nil, 'GETGDI.EXE', nil, nil, False, 


NORMAL_PRIORITY CLASS, nil, nil, 
StartupInfo, ProcessInfo) ; 
if cp then 
begin 
WaitForSingleObject(ProcessInfo.hProcess, 1000) ; 


GetExitCodeProcess(ProcessInfo.hProcess, GdiValue) ; 
CloseHandle(ProcessInfo.hProcess) ; 
EndAvailGDI := GdiValue; 


end 
else 
EndAvailGDI := -1; 
end; 
{ The DisplayInfo procedure allows you to visually 
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inspect the values captured by the Start and Stop 
methods. The InfoTitle parameter allows you to 

display a meaningful title, such as ‘After Order Entry 
Form Creation.' This approach was adequate for our 
needs, but certainly leaves room for significant 
enhancements. } 
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procedure TTimeMemGDI.DisplayInfo(InfoTitle: 

const 
CRLF = #10+#13; 
TAB = #9; 

var 
Hour, 

var 
TimeMemMessage, 
StrUsedMemoryLoad, 
StrUsedAvailPhys, 
StrUsedAvailPageFile, 
StrUsedAvailVirtual, 
StrUsedAvailGDI, 
StrStartMemoryLoad, 
StrStartAvailPhys, 
StrStartAvailPageFile, 
StrStartAvailVirtual, 
StrStartAvailGDI, 
StrEndMemoryLoad, 
StrTotalPhys, 
StrEndAvailPhys, 
StrEndAvailPageFile, 
StrEndAvailVirtual, 
StrEndAvailGDI: 

begin 
DecodeTime(UsedTime, 


string); 


Min, Sec, MSec: Word; 


string; 


Hour, Min, Sec, MSec); 
StrUsedMemoryLoad := 
IntToStr (EndMemoryLoad 
StrUsedAvailPhys := 
FloatToStrF((StartAvailPhys 
ffNumber, 
StrUsedAvailPageFile := 
FloatToStrF((StartAvailPageFile - 
ffNumber, 10, O) ; 
StrUsedAvailVirtual := 
FloatToStrF((StartAvailVirtual - EndAvailVirtual), 
ffNumber, 10, O) ; 
if (StartAvailGDI = -1) or (EndAvailGDI = -1) 
StrUsedAvailGDI := ‘Unable to determine' 
else 
StrUsedAvailGDI := 
FloatToStrF ((StartAvailGDI 
ffNumber, 


- StartMemoryLoad) ; 


- EndAvailPhys), 
10, 0) ; 


EndAvailPageFile) 


then 


- EndAvailGDI), 
10; Oks 
StrTotalPhys := 
FloatToStrF(TotalPhys, 
StrStartMemoryLoad := 
FloatToStrF(StartMemoryLoad, ffNumber, 
StrStartAvailPhys := 
FloatToStrF(StartAvailPhys, 
StrStartAvailPageFile := 
FloatToStrF (StartAvailPageFile, 
StrStartAvailVirtual := 
FloatToStrF(StartAvailVirtual, ffNumber, 
if StartAvailGDI = -1 then 


ffNumber, 13, 0); 

13, 0); 
ffNumber, 13, 0); 
ffNumber, 13, 0); 


13, 0); 


StrStartAvailGDI := ‘Error accessing GetGDI.exe' 
else 

StrStartAvailGDI := 

FloatToStrF(StartAvailGDI, ffNumber, 13, 0); 

StrEndMemoryLoad := 

FloatToStrF(EndMemoryLoad, ffNumber, 13, 0); 
StrEndAvailPhys := 

FloatToStrF(EndAvailPhys, ffNumber, 13, 0); 
StrEndAvailPageFile := 

FloatToStrF(EndAvailPageFile, ffNumber, 13, 0); 
StrEndAvailVirtual := 

FloatToStrF(EndAvailVirtual, ffNumber, 13, 0); 


if EndAvailGDI = -1 then 
StrEndAvailGDI := ‘Error accessing GetGDI.exe' 
else 
StrEndAvailGDI := 
FloatToStrF(EndAvailGDI, ffNumber, 13, 0); 
TimeMemMessage := 
‘Elapsed time: ' 
IntToStr(Sec) + ' 


+ IntToStr(Min) + ' Minutes ' 
Seconds ‘ + IntToStr(MSec) + 


J 


+ 
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' Milliseconds' + CRLF+CRLF + 


‘Total physical memory: ' + StrTotalPhys +CRLF+CRLF+ 
‘Percent of memory in use:' +CRLF+ 

TAB + StrStartMemoryLoad + ‘% before’ +CRLF+ 

TAB + StrEndMemoryLoad + '% after’ +CRLF+ 

TAB + StrUsedMemoryLoad + ‘% used' +CRLF+CRLF+ 
‘Free physical memory:' +CRLFt+ 

TAB + StrStartAvailPhys + ' before’ +CRLF+ 

TAB + StrEndAvailPhys + 7 ‘after +CRLE+ 

TAB + StrUsedAvailPhys + ' used' +CRLF+CRLF+ 


‘Paging file free:' +CRLF+ 
TAB + StrStartAvailPageFile + ' before’ +CRLF+ 
TAB + StrEndAvailPageFile + ' after’ +CRLF+ 
TAB + StrUsedAvailPageFile + ' used' +CRLF+CRLF+ 


‘Available virtual address space:' +CRLFt 
TAB + StrStartAvailVirtual + ' before’ +CRLF+ 
TAB + StrEndAvailVirtual + ' after’ +CRLF+ 
TAB + StrUsedAvailVirtual + ' used' +CRLF+CRLF+ 


‘Available GDI resources:' +CRLF+ 
TAB + StrStartAvailGDI + ' before’ +CRLF+ 
TAB + StrEndAvailGDI + ' after’ +CRLF+ 
TAB + StrUsedAvailGDI + ‘' used'; 


ShowMessage(InfoTitle + CRLF+CRLF + TimeMemMessage) ; 
end; 


end. 


End Listing One 
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